home *** CD-ROM | disk | FTP | other *** search
/ JCSM Shareware Collection 1996 September / JCSM Shareware Collection (JCS Distribution) (September 1996).ISO / tutorial / trac.zip / EX-IV-1.OBJ < prev    next >
Text File  |  1990-01-25  |  2KB  |  45 lines
  1. 0001          0 0001          0
  2. 0002          0    I          0 Index register
  3. 0003          0    J          0
  4. 0004          5               5 Initialize index register 4 to 5
  5. 0005     400043 BGIN     RD   A Read first 5 values
  6. 0006    4400043         4RD   A Read second 5 values
  7. 0007     000042 INIT     LDZERO
  8. 0008     030002          ST   I Set I=0
  9. 0009     030038          ST   F Set flag to off
  10. 0010     000039          LD ONE
  11. 0011     030003          ST   J Set J=1
  12. 0012    2000043 LOOP    2LD   A Load A(I)
  13. 0013    3020043         3SU   A           - A(I+1)
  14. 0014     240024          BNINCR If <
  15. 0015     250024          BZINCR      or = skip exchange
  16. 0016    2000043         2LD   A Load A(I)
  17. 0017     030040          ST   T Store at temporary location
  18. 0018    3000043         3LD   A Load A(I+1)
  19. 0019    2030043         2ST   A Store at A(I)
  20. 0020     000040          LD   T Get temporary value
  21. 0021    3030043         3ST   A Store in A(I+1)
  22. 0022     000039          LD ONE
  23. 0023     030038          ST   F Set flag to on
  24. 0024     000003 INCR     LD   J
  25. 0025     010039          AD ONE
  26. 0026     030003          ST   J Increment J (Actually I+1)
  27. 0027     000002          LD   I
  28. 0028     010039          AD ONE
  29. 0029     030002          ST   I Increment I
  30. 0030     020041          SUNINE Done with pass?
  31. 0031     240012          BNLOOP If not repeat loop
  32. 0032     000038          LD   F Any exchanges?
  33. 0033     250035          BZPRNT If not, print
  34. 0034     260007          BUINIT Do another pass
  35. 0035     410043 PRNT     PC   A Print first 5 values
  36. 0036    4410043         4PC   A Print second 5 values
  37. 0037     500037          HT*    Stop
  38. 0038          0    F          0
  39. 0039          1  ONE          1
  40. 0040          0    T          0
  41. 0041          9 NINE          9
  42. 0042          0 ZERO          0
  43. 0043          0    A          0
  44. 9999     000005          ENBGIN
  45.